#lang rosetta-racket


(require "cup.rkt")

(provide cup-example)


(define (cup-example)
  (let ((shape (cup
                uz
                (xyz -0.5 -0.5 0)
                (xyz 0.5 -0.5 0)
                (xyz 0.5 0.5 0)
                (xyz -0.5 0.5 0)
                1)))
    (view
     (xyz -7.191565307914902 4.241466602050201 5.115374092887864)
     (xyz 0.08448673915147935 -0.05696146429957731 0.8097386078856536)
     (perspective 150)
     shape)))